home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tex / style / misc / aimemo.sty < prev    next >
Text File  |  1995-11-25  |  2KB  |  72 lines
  1. % Use the full page
  2. %
  3. \oddsidemargin 18pt
  4. \evensidemargin 18pt
  5. \topmargin 0pt
  6. \textheight 595pt
  7. \textwidth 432pt
  8.  
  9. % Topheading supplies left and right flushed headings for the
  10. %   lrheading command.
  11. %
  12. \def\topheadings#1#2{\def\@toplefthead{#1}\def\@toprighthead{#2}}
  13.  
  14. % Page style: lrheadings
  15. %  put text suplied by the topheadings command in the left and
  16. %  right corners of the topheading.
  17. %
  18. \def\ps@lrheadings{%
  19. \def\@oddhead{\hbox{}\sl\@toplefthead\hfil\sl\@toprighthead}%
  20. \def\@evenhead{\sl\@toplefthead\hfil\sl\@toprighthead\hbox{}}%
  21. \def\@oddfoot{\hbox{}\hfil\rm\thepage\hfil}%
  22. \def\@evenfoot{\hbox{}\hfil\rm\thepage\hfil}}
  23.  
  24. % Page style: footpagenumber
  25. %  put nothing in header and center the page number in the footer.
  26. %
  27. \def\ps@footpagenumber{%
  28. \def\@oddhead{}\def\@evenhead{}%
  29. \def\@oddfoot{\hbox{}\hfil\rm\thepage\hfil}%
  30. \def\@evenfoot{\hbox{}\hfil\rm\thepage\hfil}}
  31.  
  32. % \skipline leaves a blank line realitive to the size of the current
  33. %   font.
  34. %
  35. \def\skipline{\vskip 2em}
  36.  
  37. % stuff to change the format of figures
  38. %
  39. \def\@float#1{\@ifnextchar[{\@xfloat{#1}}{\edef\@tempa{\noexpand\@xfloat
  40.     {#1}[\csname fps@#1\endcsname]}\@tempa}}
  41.  
  42. \def\@xfloat#1[#2]{\ifhmode \@bsphack\@floatpenalty -\@Mii\else
  43.    \@floatpenalty-\@Miii\fi\def\@captype{#1}\ifinner
  44.       \@parmoderr\@floatpenalty\z@
  45.     \else\@next\@currbox\@freelist{\@tempcnta\csname ftype@#1\endcsname
  46.        \multiply\@tempcnta\@xxxii\advance\@tempcnta\sixt@@n
  47.        \@tfor \@tempa :=#2\do
  48.                         {\if\@tempa h\advance\@tempcnta \@ne\fi
  49.                          \if\@tempa t\advance\@tempcnta \tw@\fi
  50.                          \if\@tempa b\advance\@tempcnta 4\relax\fi
  51.                          \if\@tempa p\advance\@tempcnta 8\relax\fi
  52.          }\global\count\@currbox\@tempcnta}\@fltovf\fi
  53.     \global\setbox\@currbox\vbox\bgroup
  54.     \boxmaxdepth\z@
  55.     \hsize\columnwidth \@parboxrestore}
  56.  
  57. \def\end@float{\egroup
  58.    \ifnum\@floatpenalty <\z@
  59.      \@cons\@currlist\@currbox
  60.      \ifdim \ht\@currbox >\textheight
  61.         \ht\@currbox\textheight \fi
  62.      \global\@outputdonefalse
  63.      \ifnum\@floatpenalty < -\@Mii
  64.         \penalty\@floatpenalty
  65.         \if@outputdone\else\global\@outputdonetrue
  66.            \vbox{}\penalty\@floatpenalty\fi
  67.       \else \vadjust{\penalty \@floatpenalty}\@esphack\fi\fi}
  68.  
  69. \def\@dblfloat#1{\if@twocolumn\else\@latexerr{Two-column float
  70. on one-column page}\@ehd\fi
  71. \@ifnextchar[{\@xdblfloat{#1}}{\@xdblfloat{#1}[tp]}}
  72.